#!/usr/bin/perl -w
$compteur = 0;
$grandcompteur = 0;
print " Veuillez saisir votre lettre. Pour vous arreter, tapez 'STOP'.\n ";
while (<>) { # tant que l'utilisateur tape quelque chose
 chomp($_); 
# le chomp permet de supprimer les sauts de ligne à la fin de chaque ligne
 $ligne = $_;
 if ($ligne eq "STOP") { # Si l'utilisateur tape STOP
	print "Vous avez saisi la lettre suivante\n\n$texte\n\n"; 
	# On réécrit la lettre entière
	print "Il y a $grandcompteur mots dans votre lettre\n"; 
	#on dit combien il y a de mots dans la lettre
	exit; # Le programme se termine
	} # fin de if
 else { 
	$texte .=" $ligne\n"; # On concatène toutes les lignes dans la variable $texte
	if ($ligne=~/\w+/){ 
	# si la ligne contient des caractères (on veut éviter les lignes blanches)
		@tableau=split(/[ ']/,$ligne); 
		#On crée un tableau à partir de chaque ligne puis on segmente celle-ci grâce à split. 
		#On prend l'espace comme séparateur
		$compteur=$#tableau+1; # $#tableau donne l'indice du dernier élément,
		# en lui ajoutant 1, on sait combien il y a d'éléments dans le tableau
		$grandcompteur=$grandcompteur+$compteur; 
		#on incrémente le compteur général avec les valeurs de chaque phrase
		}#fin de if
  } # fin de else
} # fin de while
